home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
gbrowse.zip
/
GBROWSE.CH
< prev
next >
Wrap
Text File
|
1992-07-12
|
3KB
|
50 lines
*
* GBROWSE.CH
*
* This file contains the command translation used to define the Get Browse
* command.
*
* (c) Copyright 1992, John D. Lay
* ALL RIGHTS RESERVED
*
* For more information, Please contact me via CompuServe
* John Lay
* 70441,1543
*
* Top, Left, Bottom, Right - Screen position
* READONLY - If present do not allow editing
* ALIAS - File alias to browse
* PICTURE - Get Picture (when editing)
* COLOR - Color string (browse & get)
* WHEN - PreValidation for browse
* SEND - Send message to GET object
* FIELDS - Field Names to browse
* DEFAULT - Default values for fields when adding records
* (fields do not have to be browsed!)
* FOR - Browse scope
* VALID - PostValidation for GET (within browse)
*
#command @ <Top>, <Left> TO <Bottom>, <Right> BROWSE ;
[<rdonly: READONLY>] ;
[ALIAS <(alias)>] ;
[PICTURE <pic>] ;
[COLOR <clr>] ;
[WHEN <when>] ;
[SEND <msg>] ;
[FIELDS <list,...>] ;
[DEFAULT <(defld1)> TO <defval1> ;
[,<(defldn)> TO <defvaln>]] ;
[FOR <for>] ;
[VALID <vald>] ;
=> setpos( <Top>, <Left> ) ;
; aadd( GetList, ;
GetNewBrowse( <Top>, <Left>, <Right>, <Bottom>, <(alias)>, ;
<pic>, { <(list)> }, ;
{ { <(defld1)>,<defval1> } [, { <(defldn)>,<defvaln> } ] }, ;
<{vald}>, <{for}>, <clr>, <.rdonly.> ) ;
) ;
[; atail(GetList):<msg> ] ;
[; atail(GetList):preBlock := <{when}> ]